home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / MATH / NRPAS13 / ERFCC.PAS < prev    next >
Pascal/Delphi Source File  |  1991-04-29  |  369b  |  14 lines
  1. FUNCTION erfcc(x: real): real;
  2. VAR
  3.    t,z,ans: real;
  4. BEGIN
  5.    z := abs(x);
  6.    t := 1.0/(1.0+0.5*z);
  7.    ans := t*exp(-z*z-1.26551223+t*(1.00002368+
  8.       t*(0.37409196+t*(0.09678418+t*(-0.18628806+
  9.       t*(0.27886807+t*(-1.13520398+t*(1.48851587+
  10.       t*(-0.82215223+t*0.17087277)))))))));
  11.    IF (x >= 0.0) THEN erfcc := ans
  12.    ELSE erfcc := 2.0-ans
  13. END;
  14.